Top 10k strings from Battleships (1984)(Interface Publications)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   4 -y,x+(k*16
   4 ***********************
   1 z=a(k,x,y):
   1 n(k,z)=n(k,z)-1
   1 b$=" ABCDEFGHIJ ":
   1 a(k,x,y)>0
   1 a(k,x,y)=0
   1 a(k,x,y)=-1
   1 SUBMARINE 2
   1 BATTLESHIP CRUISER    DESTROYER 1DESTROER 2 SUBMARINE 1SUBMARINE 2X
   1 BATTLESHIP
   1 ;n$(z);" SUNK!!!"
   1 ;"YOUR GO"
   1 ;"Square ";l:
   1 ;"SPLASH!!";
   1 ;"MY GO    " 
   1 ;"I am positioning my fleet"
   1 ;"Enter you ship now.       "
   1 ;"Enemy fleet ":
   1 ;" Your fleet ";
   1 ;"  Press any key for another go  ";
   1 ;"             "
   1 ;"               "
   1 ;"                ":
   1 ;"                "
   1 ;"                    "
   1 ;"                         "
   1 ,p+d*l,q+u*l)=s:
   1 ,p+d*l,q+u*l)
   1 *Set up U.D.G's*
   1 *Original ZX81 program*
   1 *Get player's input*
   1 *Computer fire routine*
   1 **Misfire Routine**
   1 ***Main Program**
   1 ***Initialise***
   1 **    Battleships    **
   1 **     Cruisers      **
   1 **        and        **
   1 * Spectrum conversion *
   1 *   by J.C. Edyvane   *
   1 *    by A.Cresswell   *
   1 "BATTLESHIP","CRUISER","DESTROYER 1","DESTROER 2","SUBMARINE 1","SUBMARINE 2"
   1  ABCDEFGHIJ d